home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / spiele / publicdomain / ls-tron3.1 / ls-tron-const.i < prev    next >
Text File  |  1996-04-28  |  6KB  |  169 lines
  1. { LS-Tron-Constant.i }
  2.  
  3. CONST F1       = $50;
  4.       F2       = $51;
  5.       F3       = $52;
  6.       F4       = $53;
  7.       F5       = $54;
  8.       F6       = $55;
  9.       F7       = $56;
  10.       F8       = $57;
  11.       F9       = $58;
  12.       F10      = $59;
  13.  
  14.       Turbo    =   5;
  15.       VeryFast =   4;
  16.       Fast     =   3;  { Konstanten für SpeedArray (s.u.)}
  17.       SMedium  =   2;
  18.       Slow     =   1;
  19.       verySlow =   0;
  20.  
  21.       suicide  =   5;
  22.       VeryHard =   4;
  23.       Hard     =   3;
  24.       Medium   =   2;  { Konstanten für LevelArray (s.u.)}
  25.       Easy     =   1;
  26.       VeryEasy =   0;
  27.  
  28.       Tasten   =   0;
  29.       Joy1     =   1;  { Konstanten für Steuerung }
  30.       Joy2     =   2;
  31.  
  32.       hellgrau =   0;
  33.       weiss    =   1;
  34.       gruen    =   2;
  35.       gelb     =   3;
  36.       tuerkis  =   4;
  37.       blau     =   5;
  38.       rot      =   6;
  39.       lila     =   7;
  40.       schwarz  =   8;
  41.       sdgrau   =  10;
  42.       dgrau    =  11;
  43.       mgrau    =  12;
  44.       orange   =  13;
  45.       dtuerkis =  14;
  46.       gruen2   =  15;
  47.  
  48.       Deutsch  =   1;
  49.       English  =   2;
  50.  
  51.       Error_No_Screen      =  1;
  52.       Error_No_Window      =  2;
  53.       Error_No_Chipmem     =  3;
  54.       Error_No_Process     =  4;
  55.       Error_No_Sourcedir   =  5;
  56.       Error_No_WBMessage   =  6;
  57.       Error_in_Configfile  =  7;
  58.       Error_in_Filelist    =  8;
  59.       Error_Not_All_Open   =  9;
  60.       Error_No_Mem         = 10;
  61.       Error_No_Grafics     = 21;
  62.       Error_No_Reqtools    = 22;
  63.       Error_No_Diskfont    = 23;
  64.       Error_No_LS_Font     = 30;
  65.       Error_Iff_Noerr      = 50;
  66.       Error_Iff_NoMem      = 51;
  67.       Error_Iff_Openscreen = 52;
  68.       Error_Iff_Openwindow = 53;
  69.       Error_Iff_Open       = 54;
  70.       Error_Iff_WrongIff   = 55;
  71.       Error_Iff_ReadWrite  = 56;
  72.  
  73.       MausDaten : MouseArray = (0,0,  { Für den eigenen, ganz persönlichen }
  74.                   %0011111111111100,%0000000000000000,        { Mauszeiger }
  75.                   %0010101111110100,%0000101111110000,
  76.                   %0010101001001100,%0000101001001000,
  77.                   %0010101111001100,%0000101111001000,
  78.                   %0010100011001100,%0000100011001000,
  79.                   %0010111111110100,%0000111111110000,
  80.                   %0011111111111100,%0000000000000000,
  81.                   %0000000000000000,%0001111111111000,
  82.                   %1111111111111111,%0000000000000000,
  83.                   %1111111111000011,%0000000000111100,
  84.                   %1111011111111111,%0000100000000000,
  85.                   %1111111111111111,%0000000000000000,
  86.                         0,0);
  87.  
  88.     Koord1 : Koord = (-2,11, -2,-1,102,-1);     { Koordinaten für Borders }
  89.     Koord2 : Koord = (-2,11,102,11,102,-1);
  90.     Koord3 : Koord = (-2,11, -2,-1,102,-1);
  91.     Koord4 : Koord = (-2,11,102,11,102,-1);
  92.  
  93.     Bora2:Border = (0,0,1,8,5,3,NIL,NIL);       { Borders für die Gadgets }
  94.     Bora1:Border = (0,0,8,1,5,3,NIL,NIL);
  95.     Borb2:Border = (0,0,8,1,5,3,NIL,NIL);
  96.     Borb1:Border = (0,0,1,8,5,3,NIL,NIL);
  97.  
  98.     Int1 : IntuiText = (1,0,0,35,1,NIL,"Start"     ,NIL); { Intuitexts für }
  99.     Int2 : IntuiText = (1,0,0,36,1,NIL,"Info"      ,NIL); { Na???          }
  100.     Int3 : IntuiText = (1,0,0,23,1,NIL,"Highscore" ,NIL);
  101.     Int4 : IntuiText = (1,0,0,18,1,NIL,"Optionen 1",NIL);
  102.     Int5 : IntuiText = (1,0,0,18,1,NIL,"Optionen 2",NIL); { RICHTIG!!!     }
  103.     Int6 : IntuiText = (8,0,0,37,1,NIL,"Ende"      ,NIL); { Die Gadgets    }
  104.  
  105.     GermanMain : ARRAY[1..6] OF STRING =
  106.                   ("Start",
  107.                    "Info",
  108.                    "Highscore",
  109.                    "Optionen 1",
  110.                    "Optionen 2",
  111.                    "Ende");
  112.  
  113.     EnglishMain : ARRAY[1..6] OF STRING =
  114.                   ("Start",
  115.                    "Info",
  116.                    "Highscore",
  117.                    " Options 1 ",
  118.                    " Options 2 ",
  119.                    "Quit");
  120.  
  121.     Gad10  : Gadget = (NIL,246,205,101,11,GadghImage,RelVerify,{die Gadgets }
  122.                       BOOLGADGET,NIL,NIL,NIL,0,NIL,10,NIL);
  123.     Gad05  : Gadget = (NIL,246,185,101,11,GadghImage,RelVerify,
  124.                       BOOLGADGET,NIL,NIL,NIL,0,NIL, 5,NIL);
  125.     Gad04  : Gadget = (NIL,246,165,101,11,GadghImage,RelVerify,
  126.                       BOOLGADGET,NIL,NIL,NIL,0,NIL, 4,NIL);
  127.     Gad03  : Gadget = (NIL,246,145,101,11,GadghImage,RelVerify,
  128.                       BOOLGADGET,NIL,NIL,NIL,0,NIL, 3,NIL);
  129.     Gad02  : Gadget = (NIL,246,125,101,11,GadghImage,RelVerify,
  130.                       BOOLGADGET,NIL,NIL,NIL,0,NIL, 2,NIL);
  131.     Gad01  : Gadget = (NIL,246,105,101,11,GadghImage,RelVerify,
  132.                      BOOLGADGET,NIL,NIL,NIL,0,NIL, 1,NIL);
  133.  
  134.     nFont : TextAttr = ("ls.font", 8,FS_NORMAL ,FPF_DISKFONT);
  135.                        { ein Font für den eigenen Stil... }
  136.  
  137.     LSScript : ARRAY[1..28] OF ARRAY[1..9] OF SHORT =   { Hiermit wird der }
  138.                ((11,11,11,11,11,11,11,11,11),           { Schriftzug im    }
  139.                 (11, 5, 5, 5, 5, 5, 5, 5,11),           { Hauptmenü gemalt.}
  140.                 (11,14,11,11,15,15,15,15,11),
  141.                 (11,14,11,11,15,11,11,15,11),
  142.                 (11,14,11,11,15,11,11,15,11),
  143.                 (11,14,15,15,15,11,11,15,11),
  144.                 (11,11,11,11,11,11,11,11,11),
  145.                 (11,11,11,11, 4,11,11,11,11),
  146.                 (11,11,11,11, 4,11,11,11,11),
  147.                 (11,11,11,11, 4,11,11,11,11),
  148.                 (11,11,11,11,11,11,11,11,11),
  149.                 (11,11,11,11,11,11,11, 6,11),
  150.                 (11,11,11,11,11,11,11, 6,11),
  151.                 (11, 6, 6, 6, 6, 6, 6, 6,11),
  152.                 (11,11,11,11,11,11,11, 6,11),
  153.                 (11, 3, 3, 3, 3, 3, 3,13,11),
  154.                 (11,11,11, 3, 3,11,11, 3,11),
  155.                 (11, 3, 3,11, 3,11,11, 3,11),
  156.                 (11,11, 5, 5, 5,15,15,11,11),
  157.                 (11, 5,11,11,11,11,11, 5,11),
  158.                 (11, 5,11,11,11,11,11, 5,11),
  159.                 (11,11, 5, 5, 5, 5, 5,11,11),
  160.                 (11, 4, 4, 4, 4, 4, 4, 4,11),
  161.                 (11,11,11,11,11, 4, 4,11,11),
  162.                 (11,11,11, 4, 4,11,11,11,11),
  163.                 (11, 4, 4,11,11,11,11,11,11),
  164.                 (11, 4, 4, 4, 4, 4, 4, 4,11),
  165.                 (11,11,11,11,11,11,11,11,11));
  166.  
  167.       SpeedArray : BigArray = (5,4,3,2,1,0);       { Geschwindigkeitsdaten }
  168.       LevelArray : Bigarray = (0,25,50,100,200,50);{ Hindernisse für Levels}
  169.